namespace eval Utils {
   # String procedures
   proc filt {data} {
       regsub -all -- \\\\ $data \\\\\\\\ data
       regsub -all -- \\\[ $data \\\\\[ data
       regsub -all -- \\\] $data \\\\\] data
       regsub -all -- \\\} $data \\\\\} data
       regsub -all -- \\\{ $data \\\\\{ data
       regsub -all -- \\\" $data \\\\\" data
       return $data
    }

   # Lists procedures
   proc list_diff {list1 list2} {
      foreach suppr [split $list2] {
         set ind [lsearch [::Utils::filt $list1] [::Utils::filt $suppr]]
         set list1 [lreplace $list1 $ind $ind]
      }
      return list1
   }
}

